home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #026 (19xx)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #026 (19xx)(Amiga User Group Deutschland e.V.).adf
/
Etiketten_V1.02
/
Etiketten
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1988-12-10
|
6KB
|
181 lines
REM -----------------------------------------
REM Etiketten Druck
REM © 1988 by Pumuckel-Soft
REM -----------------------------------------
SCREEN 2,640,240,4,2
WINDOW 2,"Disketten-Etiketten-© by Pumuckel-Soft",,1,2
PALETTE 0,1,1,1
Bildaufbau:
COLOR 15,0
LOCATE 1,23:PRINT " PPPPPPPP SSSSSSS BBBBBBBBB "
LOCATE 2,23:PRINT " P P S S B B"
LOCATE 3,23:PRINT " P P S B B"
COLOR 5,0
LOCATE 4,16:PRINT " © Copyright 1988 by Michael Junker (alias PSB)"
COLOR 15,0
LOCATE 5,23:PRINT " P S B B"
LOCATE 6,23:PRINT " P S S B B"
LOCATE 7,23:PRINT " P SSSSSSS BBBBBBBBB "
COLOR 13,0 : LOCATE 9,20 : PRINT " DISKETTEN - ETIKETTEN": PRINT
COLOR 2,0 : PRINT " Dieses Programm ist dafür da, um Disk-Etiketten zu drucken. Sie brauchen "
PRINT " nur den Namen, die Nummer und die Art der Diskette anzugeben.Wobei bei "
PRINT " Art gemeint ist, ob es eine Anwender oder eine Spiel Diskette ist. Das "
PRINT " bleibt aber jedem selbst überlassen, viel vergnügen ...!!"
LINE (280,115)-(525,200),2,b
COLOR 2,0
LOCATE 16,37 : PRINT " Schreibschutz AUS ->"
LOCATE 17,37 : PRINT " AN ->"
LOCATE 18,37 : PRINT "-----------------------------"
LOCATE 19,37 : PRINT "Etikettendrucker 001"
LOCATE 20,37 : PRINT "-----------------------------"
LOCATE 22,37 : PRINT "Diskname : Etikettendrucker"
LOCATE 23,37 : PRINT "Disknummer : 001"
LOCATE 24,37 : PRINT "Diskart : Anwender"
LOCATE 25,37 : PRINT "Copierprg : WB-Kopieren"
COLOR 5,0
LOCATE 19,1 : PRINT " ... so ähnlich sehen die \"
LOCATE 20,1 : PRINT " --->"
LOCATE 21,1 : PRINT " Etiketten dann aus !! /"
Mouse1:
COLOR 2,1 : LOCATE 27,22 : PRINT " 1 X linke Maus-Taste für weiter ..."
IF MOUSE(0)>-1 THEN Mouse1 : REM nur wenn Maus gedrueck, dann weiter !
Bildaufbau2:
CLS
FOR a=0 TO 620 STEP 4 : REM \
i=i+1 : IF i=15 THEN i=0 : REM > obere Dreieck
LINE (320,0)-(a,80),i : REM /
NEXT a
FOR a=0 TO 620 STEP 4 : REM \
i=i+1 : IF i=15 THEN i=0 : REM > untere Dreieck
LINE (320,80)-(a,0),i : REM /
NEXT a
COLOR 2,1
LOCATE 16,36 : PRINT " _______________"
LOCATE 16,25 : PRINT "Diskname :",dn$
LOCATE 18,36 : PRINT " ___"
LOCATE 18,25 : PRINT "Disknummer:",dr$
LOCATE 20,36 : PRINT " _______________"
LOCATE 20,25 : PRINT "Diskart :",da$
LOCATE 22,36 : PRINT " _______________"
LOCATE 22,25 : PRINT "Copierprg.:",co$
LINE (50 ,195)-(190,212),9,bf : LINE (50 ,195)-(190,212),2,b : REM Eingaben
LINE (250,195)-(390,212),9,bf : LINE (250,195)-(390,212),2,b : REM Drucken
LINE (430,195)-(570,212),9,bf : LINE (430,195)-(570,212),2,b : REM Beenden
COLOR 2,9
LOCATE 26,12 : PRINT "Eingaben"
LOCATE 26,37 : PRINT "Drucken"
LOCATE 26,60 : PRINT "Beenden!"
Maus:
ON MOUSE GOSUB Start
MOUSE ON
GOTO Maus
Start:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>197 AND x<213 AND y> 54 AND y<193 THEN Eingaben
IF x>197 AND x<213 AND y>254 AND y<393 THEN Drucker
IF x>197 AND x<213 AND y>434 AND y<573 THEN Allesende
RETURN
Eingaben:
COLOR 2,1
LOCATE 16,36 : PRINT " _______________" : REM \
LOCATE 18,36 : PRINT " ___" : REM \ erstmal
LOCATE 20,36 : PRINT " _______________" : REM / saubermachen
LOCATE 22,36 : PRINT " _______________" : REM /
LOCATE 16,38 : INPUT"",dn$ : REM \
LOCATE 18,38 : INPUT"",dr$ : REM \ dann was
LOCATE 20,38 : INPUT"",da$ : REM / eingeben
LOCATE 22,38 : INPUT"",co$ : REM /
IF dn$="" AND dr$="" AND da$="" AND co$="" THEN eingegeben=0 : GOTO Maus
REM obere Zeile=wenn nur immer<RETURN> gedrueckt wurde
REM (nichts im String steht) dann nicht drucken
REM (warum auch !)
eingegeben=1
GOTO Maus
Drucker:
IF eingegeben=0 THEN Info : REM wenn keine einbgabe statgefunden hat !
OPEN "par:" FOR OUTPUT AS #1
a$=" " : x=LEN(dn$) : z=15-x
FOR w=0 TO z : dn$=dn$+a$ : NEXT w : REM Diskname max. 15 Zeichen
a$=" " : x=LEN(dr$) : z=3-x
FOR w=0 TO z : dr$=dr$+a$ : NEXT w : REM Disknummer max. 3 Zeichen
a$=" " : x=LEN(da$) : z=15-x
FOR w=0 TO z : da$=da$+a$ : NEXT w : REM Diskart max. 15 Zeichen
a$=" " : x=LEN(co$) : z=15-x
FOR w=0 TO z : co$=co$+a$ : NEXT w : REM Copierprg. max. 15 Zeichen
PRINT#1,CHR$(27);"x1"; : REM NLQ einschalten
PRINT#1,"+++++++++++++++++++++++++++++"
REM Superscript ein bzw. aus
PRINT#1,"+ ";CHR$(27);"S";CHR$(0);" Schreibschutz Aus->";CHR$(27);"T";"+"
PRINT#1,"+ ";CHR$(27);"S";CHR$(0);" Schreibschutz An ->";CHR$(27);"T";"+"
REM Nun der Text der auf der oberen Kante steht
REM ( wenn die Diskette im Kasten steht,kann man
REM von oben sehen was es fuer eine Disk ist ! )
PRINT#1,"+";CHR$(27);"S";CHR$(0);dn$;" ";dr$;CHR$(27);"T";"+"
REM ... hier geht es normal weiter !
PRINT#1,"+ +"
PRINT#1,"+ +"
PRINT#1,CHR$(20);
PRINT#1,CHR$(27);"T";
PRINT#1,"+ +
PRINT#1,"+ +"
PRINT#1,"+---------------------------+"
PRINT#1,"+ Diskname :";dn$"+"
PRINT#1,"+---------------------------+"
PRINT#1,"+ Disknr. :";dr$" +"
PRINT#1,"+---------------------------+"
PRINT#1,"+ Diskart :";da$"+"
PRINT#1,"+---------------------------+"
PRINT#1,"+ Copierprg:";co$"+"
PRINT#1,"+++++++++++++++++++++++++++++"
PRINT#1,"" : PRINT#1,"" : s=s+1
IF s=3 THEN PRINT#1,CHR$(12) : s=0
CLOSE#1
LOCATE 16,36 : PRINT " _______________" : REM \
LOCATE 18,36 : PRINT " ___" : REM \ Eingabenfeld
LOCATE 20,36 : PRINT " _______________" : REM / reinigen
LOCATE 22,36 : PRINT " _______________" : REM /
eingegeben=0
GOTO Maus
Allesende:
FOR a=0 TO 640 STEP 2
LINE (a,260)-(a,0),1
NEXT a
FOR a=639 TO 0 STEP -2
LINE (a,260)-(a,0),1
NEXT a
LOCATE 15,23 :COLOR 3,2 : PRINT " .... gehe zurück zum System ! By by ..."
FOR e=0 TO 1500 : NEXT e
SYSTEM
Info:
COLOR 12,0
LOCATE 14,20 : PRINT " ... erst was eingeben und dann Drucken !!!"
FOR i=0 TO 1000 : NEXT i
LOCATE 14,20 : PRINT " "
COLOR 4,9
GOTO Maus